#include <iostream>
#include "../../../src/FTensor.hpp"
#include "../test_for_zero.hpp"
using namespace FTensor;
using namespace std;

void test_T3_02(Tensor1<double,3> &t1_1, const Tensor1<double,3> &t1_2,
                const Tensor2<double,3,3> &t2_2,
                const Tensor2<double,3,3> &t2_3,
                Tensor3_dg<double,3,3> &t3dg_1)
{
  Index<'i',3> i;
  Index<'j',3> j;
  Index<'k',3> k;
  Index<'l',3> l;
  Index<'m',3> m;
  Index<'n',3> n;

  Number<0> N0;
  Number<1> N1;
  Number<2> N2;


  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))+(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)+T3(i,j,k)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))+(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)+T3(i,j,k)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))+(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)+T3(i,j,k)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))+(t2_3(0,1)*t1_1(0)))
		,"T3(i,j,k)+T3(i,j,k)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))+(t2_3(0,1)*t1_1(1)))
		,"T3(i,j,k)+T3(i,j,k)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))+(t2_3(0,1)*t1_1(2)))
		,"T3(i,j,k)+T3(i,j,k)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))+(t2_3(0,2)*t1_1(0)))
		,"T3(i,j,k)+T3(i,j,k)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))+(t2_3(0,2)*t1_1(1)))
		,"T3(i,j,k)+T3(i,j,k)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,j)*t1_1(k)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))+(t2_3(0,2)*t1_1(2)))
		,"T3(i,j,k)+T3(i,j,k)(0,2,2)");

  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))+(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)+T3(i,k,j)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))+(t2_3(0,1)*t1_1(0)))
		,"T3(i,j,k)+T3(i,k,j)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))+(t2_3(0,2)*t1_1(0)))
		,"T3(i,j,k)+T3(i,k,j)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))+(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)+T3(i,k,j)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))+(t2_3(0,1)*t1_1(1)))
		,"T3(i,j,k)+T3(i,k,j)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))+(t2_3(0,2)*t1_1(1)))
		,"T3(i,j,k)+T3(i,k,j)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))+(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)+T3(i,k,j)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))+(t2_3(0,1)*t1_1(2)))
		,"T3(i,j,k)+T3(i,k,j)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(i,k)*t1_1(j)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))+(t2_3(0,2)*t1_1(2)))
		,"T3(i,j,k)+T3(i,k,j)(0,2,2)");

  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))+(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)+T3(j,i,k)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))+(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)+T3(j,i,k)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))+(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)+T3(j,i,k)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))+(t2_3(1,0)*t1_1(0)))
		,"T3(i,j,k)+T3(j,i,k)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))+(t2_3(1,0)*t1_1(1)))
		,"T3(i,j,k)+T3(j,i,k)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))+(t2_3(1,0)*t1_1(2)))
		,"T3(i,j,k)+T3(j,i,k)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))+(t2_3(2,0)*t1_1(0)))
		,"T3(i,j,k)+T3(j,i,k)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))+(t2_3(2,0)*t1_1(1)))
		,"T3(i,j,k)+T3(j,i,k)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(j,i)*t1_1(k)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))+(t2_3(2,0)*t1_1(2)))
		,"T3(i,j,k)+T3(j,i,k)(0,2,2)");

  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))+(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)+T3(k,i,j)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))+(t2_3(1,0)*t1_1(0)))
		,"T3(i,j,k)+T3(k,i,j)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))+(t2_3(2,0)*t1_1(0)))
		,"T3(i,j,k)+T3(k,i,j)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))+(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)+T3(k,i,j)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))+(t2_3(1,0)*t1_1(1)))
		,"T3(i,j,k)+T3(k,i,j)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))+(t2_3(2,0)*t1_1(1)))
		,"T3(i,j,k)+T3(k,i,j)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))+(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)+T3(k,i,j)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))+(t2_3(1,0)*t1_1(2)))
		,"T3(i,j,k)+T3(k,i,j)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))+(t2_3(k,i)*t1_1(j)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))+(t2_3(2,0)*t1_1(2)))
		,"T3(i,j,k)+T3(k,i,j)(0,2,2)");




  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))-(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)-T3(i,j,k)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))-(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)-T3(i,j,k)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))-(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)-T3(i,j,k)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))-(t2_3(0,1)*t1_1(0)))
		,"T3(i,j,k)-T3(i,j,k)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))-(t2_3(0,1)*t1_1(1)))
		,"T3(i,j,k)-T3(i,j,k)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))-(t2_3(0,1)*t1_1(2)))
		,"T3(i,j,k)-T3(i,j,k)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))-(t2_3(0,2)*t1_1(0)))
		,"T3(i,j,k)-T3(i,j,k)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))-(t2_3(0,2)*t1_1(1)))
		,"T3(i,j,k)-T3(i,j,k)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,j)*t1_1(k)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))-(t2_3(0,2)*t1_1(2)))
		,"T3(i,j,k)-T3(i,j,k)(0,2,2)");

  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))-(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)-T3(i,k,j)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))-(t2_3(0,1)*t1_1(0)))
		,"T3(i,j,k)-T3(i,k,j)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))-(t2_3(0,2)*t1_1(0)))
		,"T3(i,j,k)-T3(i,k,j)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))-(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)-T3(i,k,j)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))-(t2_3(0,1)*t1_1(1)))
		,"T3(i,j,k)-T3(i,k,j)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))-(t2_3(0,2)*t1_1(1)))
		,"T3(i,j,k)-T3(i,k,j)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))-(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)-T3(i,k,j)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))-(t2_3(0,1)*t1_1(2)))
		,"T3(i,j,k)-T3(i,k,j)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(i,k)*t1_1(j)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))-(t2_3(0,2)*t1_1(2)))
		,"T3(i,j,k)-T3(i,k,j)(0,2,2)");

  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))-(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)-T3(j,i,k)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))-(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)-T3(j,i,k)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))-(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)-T3(j,i,k)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))-(t2_3(1,0)*t1_1(0)))
		,"T3(i,j,k)-T3(j,i,k)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))-(t2_3(1,0)*t1_1(1)))
		,"T3(i,j,k)-T3(j,i,k)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))-(t2_3(1,0)*t1_1(2)))
		,"T3(i,j,k)-T3(j,i,k)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))-(t2_3(2,0)*t1_1(0)))
		,"T3(i,j,k)-T3(j,i,k)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))-(t2_3(2,0)*t1_1(1)))
		,"T3(i,j,k)-T3(j,i,k)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(j,i)*t1_1(k)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))-(t2_3(2,0)*t1_1(2)))
		,"T3(i,j,k)-T3(j,i,k)(0,2,2)");

  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,0,0)
		- ((t2_2(0,0)*t1_2(0))-(t2_3(0,0)*t1_1(0)))
		,"T3(i,j,k)-T3(k,i,j)(0,0,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,0,1)
		- ((t2_2(0,0)*t1_2(1))-(t2_3(1,0)*t1_1(0)))
		,"T3(i,j,k)-T3(k,i,j)(0,0,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,0,2)
		- ((t2_2(0,0)*t1_2(2))-(t2_3(2,0)*t1_1(0)))
		,"T3(i,j,k)-T3(k,i,j)(0,0,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,1,0)
		- ((t2_2(0,1)*t1_2(0))-(t2_3(0,0)*t1_1(1)))
		,"T3(i,j,k)-T3(k,i,j)(0,1,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,1,1)
		- ((t2_2(0,1)*t1_2(1))-(t2_3(1,0)*t1_1(1)))
		,"T3(i,j,k)-T3(k,i,j)(0,1,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,1,2)
		- ((t2_2(0,1)*t1_2(2))-(t2_3(2,0)*t1_1(1)))
		,"T3(i,j,k)-T3(k,i,j)(0,1,2)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,2,0)
		- ((t2_2(0,2)*t1_2(0))-(t2_3(0,0)*t1_1(2)))
		,"T3(i,j,k)-T3(k,i,j)(0,2,0)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,2,1)
		- ((t2_2(0,2)*t1_2(1))-(t2_3(1,0)*t1_1(2)))
		,"T3(i,j,k)-T3(k,i,j)(0,2,1)");
  test_for_zero(((t2_2(i,j)*t1_2(k))-(t2_3(k,i)*t1_1(j)))(0,2,2)
		- ((t2_2(0,2)*t1_2(2))-(t2_3(2,0)*t1_1(2)))
		,"T3(i,j,k)-T3(k,i,j)(0,2,2)");

  t3dg_1(j,k,i)=(t2_2(i,j)*t1_2(k)) || (t2_2(i,k)*t1_2(j));
  test_for_zero(t3dg_1(0,0,0) - (t2_2(0,0)*t1_2(0) + t2_2(0,0)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(0,0,0)");
  test_for_zero(t3dg_1(0,1,0) - (t2_2(0,0)*t1_2(1) + t2_2(0,1)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(0,0,1)");
  test_for_zero(t3dg_1(0,2,0) - (t2_2(0,0)*t1_2(2) + t2_2(0,2)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(0,0,2)");
  test_for_zero(t3dg_1(1,0,0) - (t2_2(0,1)*t1_2(0) + t2_2(0,0)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(0,1,0)");
  test_for_zero(t3dg_1(1,1,0) - (t2_2(0,1)*t1_2(1) + t2_2(0,1)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(0,1,1)");
  test_for_zero(t3dg_1(1,2,0) - (t2_2(0,1)*t1_2(2) + t2_2(0,2)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(0,1,2)");
  test_for_zero(t3dg_1(2,0,0) - (t2_2(0,2)*t1_2(0) + t2_2(0,0)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(0,2,0)");
  test_for_zero(t3dg_1(2,1,0) - (t2_2(0,2)*t1_2(1) + t2_2(0,1)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(0,2,1)");
  test_for_zero(t3dg_1(2,2,0) - (t2_2(0,2)*t1_2(2) + t2_2(0,2)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(0,2,2)");
  test_for_zero(t3dg_1(0,0,1) - (t2_2(1,0)*t1_2(0) + t2_2(1,0)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(1,0,0)");
  test_for_zero(t3dg_1(0,1,1) - (t2_2(1,0)*t1_2(1) + t2_2(1,1)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(1,0,1)");
  test_for_zero(t3dg_1(0,2,1) - (t2_2(1,0)*t1_2(2) + t2_2(1,2)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(1,0,2)");
  test_for_zero(t3dg_1(1,0,1) - (t2_2(1,1)*t1_2(0) + t2_2(1,0)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(1,1,0)");
  test_for_zero(t3dg_1(1,1,1) - (t2_2(1,1)*t1_2(1) + t2_2(1,1)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(1,1,1)");
  test_for_zero(t3dg_1(1,2,1) - (t2_2(1,1)*t1_2(2) + t2_2(1,2)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(1,1,2)");
  test_for_zero(t3dg_1(2,0,1) - (t2_2(1,2)*t1_2(0) + t2_2(1,0)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(1,2,0)");
  test_for_zero(t3dg_1(2,1,1) - (t2_2(1,2)*t1_2(1) + t2_2(1,1)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(1,2,1)");
  test_for_zero(t3dg_1(2,2,1) - (t2_2(1,2)*t1_2(2) + t2_2(1,2)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(1,2,2)");
  test_for_zero(t3dg_1(0,0,2) - (t2_2(2,0)*t1_2(0) + t2_2(2,0)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(2,0,0)");
  test_for_zero(t3dg_1(0,1,2) - (t2_2(2,0)*t1_2(1) + t2_2(2,1)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(2,0,1)");
  test_for_zero(t3dg_1(0,2,2) - (t2_2(2,0)*t1_2(2) + t2_2(2,2)*t1_2(0))
		,"T3(i,j,k)||T3(i,k,j)(2,0,2)");
  test_for_zero(t3dg_1(1,0,2) - (t2_2(2,1)*t1_2(0) + t2_2(2,0)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(2,1,0)");
  test_for_zero(t3dg_1(1,1,2) - (t2_2(2,1)*t1_2(1) + t2_2(2,1)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(2,1,1)");
  test_for_zero(t3dg_1(1,2,2) - (t2_2(2,1)*t1_2(2) + t2_2(2,2)*t1_2(1))
		,"T3(i,j,k)||T3(i,k,j)(2,1,2)");
  test_for_zero(t3dg_1(2,0,2) - (t2_2(2,2)*t1_2(0) + t2_2(2,0)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(2,2,0)");
  test_for_zero(t3dg_1(2,1,2) - (t2_2(2,2)*t1_2(1) + t2_2(2,1)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(2,2,1)");
  test_for_zero(t3dg_1(2,2,2) - (t2_2(2,2)*t1_2(2) + t2_2(2,2)*t1_2(2))
		,"T3(i,j,k)||T3(i,k,j)(2,2,2)");
  t3dg_1(i,k,j)=(t2_2(i,j)*t1_2(k)) || (t2_2(k,j)*t1_2(i));
  test_for_zero(t3dg_1(0,0,0) - (t2_2(0,0)*t1_2(0) + t2_2(0,0)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,0,0)");
  test_for_zero(t3dg_1(0,1,0) - (t2_2(0,0)*t1_2(1) + t2_2(1,0)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,0,1)");
  test_for_zero(t3dg_1(0,2,0) - (t2_2(0,0)*t1_2(2) + t2_2(2,0)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,0,2)");
  test_for_zero(t3dg_1(0,0,1) - (t2_2(0,1)*t1_2(0) + t2_2(0,1)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,1,0)");
  test_for_zero(t3dg_1(0,1,1) - (t2_2(0,1)*t1_2(1) + t2_2(1,1)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,1,1)");
  test_for_zero(t3dg_1(0,2,1) - (t2_2(0,1)*t1_2(2) + t2_2(2,1)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,1,2)");
  test_for_zero(t3dg_1(0,0,2) - (t2_2(0,2)*t1_2(0) + t2_2(0,2)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,2,0)");
  test_for_zero(t3dg_1(0,1,2) - (t2_2(0,2)*t1_2(1) + t2_2(1,2)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,2,1)");
  test_for_zero(t3dg_1(0,2,2) - (t2_2(0,2)*t1_2(2) + t2_2(2,2)*t1_2(0))
		,"T3(i,j,k)||T3(k,j,i)(0,2,2)");
  test_for_zero(t3dg_1(1,0,0) - (t2_2(1,0)*t1_2(0) + t2_2(0,0)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,0,0)");
  test_for_zero(t3dg_1(1,1,0) - (t2_2(1,0)*t1_2(1) + t2_2(1,0)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,0,1)");
  test_for_zero(t3dg_1(1,2,0) - (t2_2(1,0)*t1_2(2) + t2_2(2,0)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,0,2)");
  test_for_zero(t3dg_1(1,0,1) - (t2_2(1,1)*t1_2(0) + t2_2(0,1)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,1,0)");
  test_for_zero(t3dg_1(1,1,1) - (t2_2(1,1)*t1_2(1) + t2_2(1,1)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,1,1)");
  test_for_zero(t3dg_1(1,2,1) - (t2_2(1,1)*t1_2(2) + t2_2(2,1)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,1,2)");
  test_for_zero(t3dg_1(1,0,2) - (t2_2(1,2)*t1_2(0) + t2_2(0,2)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,2,0)");
  test_for_zero(t3dg_1(1,1,2) - (t2_2(1,2)*t1_2(1) + t2_2(1,2)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,2,1)");
  test_for_zero(t3dg_1(1,2,2) - (t2_2(1,2)*t1_2(2) + t2_2(2,2)*t1_2(1))
		,"T3(i,j,k)||T3(k,j,i)(1,2,2)");
  test_for_zero(t3dg_1(2,0,0) - (t2_2(2,0)*t1_2(0) + t2_2(0,0)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,0,0)");
  test_for_zero(t3dg_1(2,1,0) - (t2_2(2,0)*t1_2(1) + t2_2(1,0)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,0,1)");
  test_for_zero(t3dg_1(2,2,0) - (t2_2(2,0)*t1_2(2) + t2_2(2,0)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,0,2)");
  test_for_zero(t3dg_1(2,0,1) - (t2_2(2,1)*t1_2(0) + t2_2(0,1)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,1,0)");
  test_for_zero(t3dg_1(2,1,1) - (t2_2(2,1)*t1_2(1) + t2_2(1,1)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,1,1)");
  test_for_zero(t3dg_1(2,2,1) - (t2_2(2,1)*t1_2(2) + t2_2(2,1)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,1,2)");
  test_for_zero(t3dg_1(2,0,2) - (t2_2(2,2)*t1_2(0) + t2_2(0,2)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,2,0)");
  test_for_zero(t3dg_1(2,1,2) - (t2_2(2,2)*t1_2(1) + t2_2(1,2)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,2,1)");
  test_for_zero(t3dg_1(2,2,2) - (t2_2(2,2)*t1_2(2) + t2_2(2,2)*t1_2(2))
		,"T3(i,j,k)||T3(k,j,i)(2,2,2)");
}
